Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Goto B
Lbl H
ClrText
Stop
Lbl L
ClrText
Locate 1,1,"xxxxxx I N N E xxxxxx"
Locate 3,3,"NOT ENOUGH GOLD."
Goto A
Lbl B
2A
ClrText
Locate 1,1,"xxxxxx CAMELOT xxxxxx"
Locate 1,2,"[F1] INNE"
Locate 1,3,"[F2] WEAPON SHOPPE"
Locate 1,4,"[F3] ATTACK"
Locate 1,5,"[F4] SEARCH FOREST"
Locate 1,6,"[F5] STATS"
Locate 1,7,"[F6] SAVE"
Goto C
Lbl A
Getkey=31Goto B
Goto A
Lbl C
Getkey=29Goto 0
Getkey=79Goto D
Getkey=69Prog "~WEAPON"
Getkey=49Prog "~FOREST"
Getkey=59Prog "~ATTACK"
A=1Goto B
Getkey=39Goto I
Getkey=47Goto H
Goto C
Lbl D
ClrText
Locate 1,1,"xxxxxx I N N E xxxxxx"
Locate 1,3," A ROOM IS 10 GOLD."
Locate 1,5,"[F1] STAY"
Locate 1,6,"[F2] RECRUIT"
Locate 1,7,"[F3] EXIT"
Goto J
Lbl J
Getkey=59Goto B
Getkey=79Goto K
Getkey=69Prog "~RECRUIT"
A=1Goto B
Goto J
Lbl K
G<10Goto L
MH
G-10G
ClrText
Locate 1,1,"xxxxxx I N N E xxxxxx"
Locate 1,3,"YOUR MEN ARE HEALTHY"
Locate 1,4,"AND READY FOR BATTLE."
Goto A
Lbl I
ClrText
Locate 1,1,"xxxxxxx STATS xxxxxxx"
Locate 1,3,"SOL."
Locate 1,4,"ATK."
Locate 1,5,"GOLD:"
Locate 7,3,H
Locate 10,3,"/"
Locate 11,3,M
Locate 7,4,S
Locate 8,5,G
Goto A
Lbl 0
ClrText
Locate 1,1,"xxxxxxx SAVE xxxxxxxx"
HList 6[1]
MList 6[2]
SList 6[3]
GList 6[4]
YList 6[5]
RList 6[6]
UList 6[7]
TList 6[8]
KList 6[9]
Locate 4,3,"SAVE SUCESSFUL."
Goto A